home *** CD-ROM | disk | FTP | other *** search
Oberon Text | 1994-11-10 | 1.3 KB | 57 lines |
- Syntax10.Scn.Fnt
- Syntax10b.Scn.Fnt
- MODULE AmigaLogger;
- IMPORT
- SYSTEM,A:=AmigaBase,E:=AmigaExec,U:=AmigaUtility;
- CONST
- loggerName*="logger.library";
- loggerBase:LONGINT;
- loggerVersion-:INTEGER;
- PROCEDURE clear*;
- r:A.Regs;
- BEGIN
- A.LibCall(loggerBase,-30,r);
- END clear;
- PROCEDURE firstPos*():LONGINT;
- r:A.Regs;
- BEGIN
- A.LibCall(loggerBase,-36,r);
- RETURN r.d[0];
- END firstPos;
- PROCEDURE nextPos*():LONGINT;
- r:A.Regs;
- BEGIN
- A.LibCall(loggerBase,-42,r);
- RETURN r.d[0];
- END nextPos;
- PROCEDURE read*(pos:LONGINT):CHAR;
- r:A.Regs;
- BEGIN
- r.d[2]:=pos;
- A.LibCall(loggerBase,-48,r);
- RETURN CHR(r.d[0]);
- END read;
- PROCEDURE write*(ch:CHAR);
- r:A.Regs;
- BEGIN
- r.d[2]:=ORD(ch);
- A.LibCall(loggerBase,-54,r);
- END write;
- PROCEDURE writeStamp*;
- r:A.Regs;
- BEGIN
- A.LibCall(loggerBase,-60,r);
- END writeStamp;
- PROCEDURE Init;
- LibraryPtr=POINTER TO E.Library;
- lib:LibraryPtr;
- BEGIN
- loggerBase:=E.OpenLibrary(loggerName,40);
- IF loggerBase=0 THEN HALT(99) END;
- lib:=SYSTEM.VAL(LibraryPtr,loggerBase);
- loggerVersion:=lib.version;
- END Init;
- BEGIN
- Init;
- END AmigaLogger.
-